home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh77a.d64
/
axel f.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
602b
|
24 lines
10 A=A+1
20 IFA=1THENLOAD"AXEL F./I",8,8
100 SYS64789
110 L1=54272:H1=L1+1:V1=L1+4
150 POKE V1+1,9:POKE V1+2,9
160 POKE53280,6:POKE53281,6
174 SYS39242
175 PRINT"[147]"TAB(8)"[154]>> PART FROM AXEL F. <<"
176 PRINTTAB(8)"RPS-RHYTHM + BASIC-BASS"
178 IFPEEK(250)<7GOTO178
179 IFPEEK(2)GOTO179
202 IFZ=25THENRESTORE
205 READH,L,S
210 POKEH1,H:POKEL1,L:POKEV1,32:POKEV1,33
220 SYS39317,S
230 Z=Z+1:IFZ<50GOTO202
250 IFPEEK(249)<15GOTO250
290 SYS64789
999 :
1000 DATA2,231,32,5,207,24,5,45,16,5,45,8,4,90,16,5,45,16,5,207,16,2,231,32
1003 DATA5,207,40,5,207,8,4,90,16,5,45,16,5,207,16,2,78,32,4,156,24,5,45,16
1006 DATA 5,45,8,4,90,16,5,45,16,5,207,16,5,207,72,5,45,8,4,90,16,3,224,16
1010 DATA3,116,16